Get a Grip Tennis by Wilson/Get a Grip Tennis by Wilson.iso/pc/wilson.dxr/Internal_57_MPEG Advance Xtra Controller Button.ls

Text File | 2003-08-12 | 3.4 KB | 73 lines

property videoSprite, VideoCommand, standardImage, alternateImage, clickedImage, param1, param2, useROimages

on DoControl me
  case me.VideoCommand of
    #play:
      play frame sprite(me.videoSprite)
    #pause:
      pause(sprite(me.videoSprite))
    #rewind:
      seek(sprite(me.videoSprite), sprite(me.videoSprite).member.startTime)
    #stepforward:
      stepforward(sprite(me.videoSprite))
    #stepback:
      stepback(sprite(me.videoSprite))
    #seek:
      seek(sprite(me.videoSprite), me.param1)
    #playsegment:
      playsegment(sprite(me.videoSprite), me.param1, me.param2)
  end case
end

on mouseUp me
  if useROimages then
    sprite(me.spriteNum).member = me.standardImage
  end if
  DoControl(me)
end

on mouseDown me
  if useROimages then
    sprite(me.spriteNum).member = me.clickedImage
  end if
end

on mouseEnter me
  if useROimages then
    sprite(me.spriteNum).member = me.alternateImage
  end if
end

on mouseLeave me
  if useROimages then
    sprite(me.spriteNum).member = me.standardImage
  end if
end

on beginSprite me
  me.standardImage = sprite(me.spriteNum).member
end

on getPropertyDescriptionList me
  if the currentSpriteNum = 0 then
    memdefault = 0
  else
    memref = sprite(me.videoSprite).member
    memdefault = member(member(memref).memberNum + 1)
    memdefault2 = member(member(memref).memberNum + 2)
  end if
  p_list = [:]
  addProp(p_list, #VideoCommand, [#comment: "Action:", #format: #symbol, #range: [#play, #pause, #rewind, #stepback, #stepforward, #seek, #playsegment], #default: #play])
  addProp(p_list, #param1, [#comment: "First Parameter (Use with seek or playsegment):", #format: #long, #default: 0])
  addProp(p_list, #param2, [#comment: "Second Parameter (Use with playsegment):", #format: #long, #default: 0])
  addProp(p_list, #videoSprite, [#comment: "MPEG Advance Xtra Sprite Channel:", #format: #integer, #default: 1])
  addProp(p_list, #useROimages, [#comment: "Use Rollover images?", #format: #boolean, #default: 0])
  addProp(p_list, #alternateImage, [#comment: "Rollover Button Cast Member:", #format: #graphic, #default: memdefault])
  addProp(p_list, #clickedImage, [#comment: "Clicked Button Cast Member:", #format: #graphic, #default: memdefault2])
  return p_list
end

on getBehaviorDescription
  return "Used to create Play, Pause, StepForward, StepBack, Rewind, Seek and PlaySegment control buttons for MPEG Advance Xtra video sprites. You can also attach rollover and alternate images for the clicked buttons" & RETURN & "PARAMETERS:" & RETURN & "Action - Choose the action to perform on mouseUP ( Play, Pause, Rewind, StepBackward, StepForward, Seek, PlaySegment )." & RETURN & "First Parameter: if the Action is Seek than this parameter contains the seek to time (in milliseconds). For the PlaySegment action this parameter contains the starting time of the segment to play (in milliseconds)" & RETURN & "Second Parameter: Used with the PlaySegment action. Contains the ending time of the segment to play (in milliseconds)" & RETURN & "DirectMedia Sprite Channel - Enter the number of sprite channel of the MPEG Advance Xtra video that is being controlled." & RETURN & "Rollover Button: the castmember that will be used as the rollover image of the button. Default is the castmember located just after the button castmember" & RETURN & "Clicked Button: the castmember that will be used as the clicked image of the button. Default is the castmember located just after the rollover castmember"
end